with Notes;
use Notes;

package Matieres.Classement is
   type Champ is (Etat, Coefficient, Note, Intitule);
   type Ordre is (Croissant, Decroissant);
   type Critere is record
      Un_Champ : Champ;
      Un_Ordre : Ordre;
   end record;
   type Multiple is range 1 .. 4;
   type Criteres is array (Multiple range <>) of Critere;

   -- Permet de comparer deux matieres selon les criteres.
   function Inferieur(X, Y : Matiere; Selon : Criteres) return Boolean;

end Matieres.Classement;
